shortcut operator in perl